pragma StartUseInterfaceDeclare Sub ShowAbout()include "form1.frm"sub main()	dim x as frmMain	x = new frmMain	x.show()end subsub ShowAbout()	dim s as string     s = "About Jose"     msgbox(s)end sub